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ABSTRACT 


The design and implementation of the FORTRAN/8 compiler for 
the PDP-8 computer is described. This compiler was written using the 
XPL Compiler Generator System and runs on an IBM System 360. 
FORTRAN/8 accepts FORTRAN as the source language and generates 


code acceptable for execution on a PDP-8 computer. 
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I. INTRODUCTION 


FORTRAN/8 is a FORTRAN compiler which generates code accept- 
able for execution on a PDP-8 Soriemeuse The compiler was written 
using the XPL Compiler Generator System [Ref. 1], and was implemented 


on an IBM System 360. 


ii. STATEMENT OF THE PROBLEM 

A PDP-8 system consisting of a PDP-8/S computer, teletype, 
and PI-1250-1 data handling system has been assigned to the Oceano- 
graphic Department at the Naval Postgraduate School. This system is 
portable and frequently removed from this facility for use on oceano- 
graphic assignments. Consequently, users are denied the possibility 
of continual testing of FORTRAN programs. 

The FORTRAN/8 compiler was designed to provide users with the 
possibility of testing FORTRAN programs when the PDP-8 system was 


not available. 


1 the PDP-8 series is referred to as PROGRAMMED DATA 
PROCESSORS and are manufactured by DIGITAL EQUIPMENT CORPORATION, 
Maynard, Massachusetts. 


eT 
on 


B.. TERMINOLOGY 
Throughout the discussion which follows, a general familiarity 
with basic computer terminology is assumed. The following notions 
are essential for comprehension of the remainder of the paper. 
i. Compiler 
A compiler is a computer program which translates source 
programs written in some higher-level language (e.g., FORTRAN, or 
ALGOL) into machine language. The generated machine language is 
referred to as the object module. 
Lie Backus-Naur Form 
Backus-Naur Form (BNF)“ is a method of formally specifying 
a context-free phrase-structure grammar. It is presented in detail in 
the "Revised Report on the Algorithmic Language ALGOL 60," [Ref. 2]. 
In BNF, the brackets " < " and" >" enclose defined 
terms, but are omitted for basic elements of the language being 
described. Symbols ":: =" and" | ," which mean "is defined as" and 


"or," are used in the definitions of terms. 
As an example, the definition 
<identifier> ::= <letter> <letter> <digit> 


states that an <identifier> is defined as a <letter> ora <letter> 


followed by a <digit> . Thus, if <letter> and <digit7 are further 


2ohe Backus-Naur Form is also known as Backus-Normal Form. 
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defined as 


| 
> 
us) 


<letter> ::= 


I 
(an) 
i 


<digit> 

then an <identifier? can consist of a sequence of letters and digits, 
as long as the first character is a letter. 

BNF is used in the formal definition of the syntax of 
FORTRAN/8 (see Appendix A). 

Sn Hash Coding 

Hash coding [Ref. 3], also known as scatter storage, isa 
term used to describe a technique for the storage and retrieval of data 
within a table. This method uses some feature of the data to be stored 
in order to calculate a table entry address. If a succeeding calculation 
selects a cell which is already in use, then a collision is said to exist. 

When a collision occurs, one of several methods can be 
used to store the latest data. One of these methods is to search the 
table for the next vacant table element. The data is entered into the 
vacant cell and a pointer is set so that the data can be accessed at 
some future point. 

Hash coding techniques normally decrease the access times 
for retrieval of data considerably when the data is accessed by content. 

4, XPL Compiler Generator System 

The FORTRAN/8 compiler was Gonsmmeied using the XPL 

Compiler Generator System (CGS) [Ref. 1]. This system is fundamentally 


composed of two programs: ANALYZER and SKELETON. 
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XPL, a block-structured language used by t! 
is a dialect of PL/I. Designed specifically for compiler writing, XPL 
is easy to learn and contains the necessary constructs for table manipu- 
lation required by compilers. 

ANALYZER is a program which accepts the BNF specification 
of a grammar, determines the acceptability of that grammar, and produces 
a set of parsing decision tables. The acceptability is based on the 
Mixed-Strategy Precedence (MSP) parsing algorithm used by SKELETON. 

The MSP parser is based on simple precedence analysis 
[Ref. 9], with additional tables to make parsing decisions when more 
context is required. 

SKELETON is a program which, with the addition of the 
ener produced tables, will act as a syntax checker and a basis 
for constructing a compiler. The essential procedures of SKELETON are 
shown in Figure 1. The complete program is listed in [Ref. 1]. 

The main body of SKELETON consists of a call to MAIN__ 
PROCEDURE. This call starts the compilation process by calling 
INITIALIZE to set the global constants. Control of the parsing process 
is then passed to COMPILATION_LOOP. 

Each call from COMPILATION_ LOOP to SYNTHESIZE 
corresponds to an application of a BNF production in the source 
language. The particular elements for a production are located by 
SCAN and passed to STACKING. STACKING, a parsing decision function, 


Places the elements ina stack until sufficient elements are available 


ik 


($e vimos 9 teiwEp Oe 


to cause a Stack reduction. If sufficient elements are <¢ 

a reduction then REDUCE will search the list of BNF productions 
seeking a match. PR_OK will be invoked to verify the selected 
production. 

SYNTHESIZE is responsible for associating meaning with the 
productions of the BNF grammar. It has one parameter which corresponds 
to the BNF production number. This argument will be applied in the 
pending reduction. 

In SKELETON, SYNTHESIZE consists of a case statement 
on the production number. The completed SYNTHESIZE in FORTRAN/8 
will consist of a giant case statement where each case will correspond 
to arule in the grammar. It is within this procedure that the majority 


of the object code will be emitted. 
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Il. PBDP=3 HARDWARE 


The PDP-8 was designed for use as a small-scale general 
purpose computer uSing twelve bit binary words and two's complement 
arithmetic. Each of the four basic components of this computer will be 
discussed in this section. These components are: (1) arithmetic unit; 
(2) control unit; (3) memory unit; and (4) input/output units. A complete 
description of the PDP-8 computer is available from Digital Equipment 


Corporation [Refs. 7 and 8]. 


A. ARITHMETIC UNIT 

The arithmetic unit accepts data from input devices and transmits 
Pca esed data to output devices. This unit functions under the direction 
of the control unit and consists of an accumulator (AC) and a link. The 
accumulator is twelve bits in length and corresponds to the PDP-8 word 
size. Bits within the accumulator are numbered 0-11 starting at the 
left. The link bit, logically a part of the accumulator, is complemented 


whenever binary operations cause a carry from the accumulator. 


(or -2047,. to 


Octal numbers within the range -3 777. OMS IAT 10 


8 


2047, 9) can be represented in the accumulator. The zeroth bit 


(leftmost) is reserved for the sign bit and the presence of a "1" in this 
position indicates a negative number. 
Inclusion of the Floating Point Package [Ref. 4] allows interpre- 


+ 63 
tation, execution, and input/output of numbers ranging from -10— 
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stg 
tor kor . This package requires the use of a three word 
to represent the number. This accumulator, which is called the floating 
point accumulator (FAC), is located on page zero in addresses 44. to 


8 
46... The first word contains the exponent with its sign in the zeroth bit. 
The mantissa is stored in the following two words with the sign of 
the number in the zeroth bit of the word following the exponent. Numbers 


requiring three words for storage are defined as "real" within the 


FORTRAN/8 compiler. 


Be CONTROL UNIT 

The control unit specifies program flow and is divided into three 
areas: (1) the program counter; (2) the instruction register; and (3) the 
major state generator. 

The program counter uses a twelve bit register to determine 
program sequence and indicates the next address from which an in- 
struction will be taken for execution. Unless a branching operation 
occurs, the program counter is incremented by one each time an 
instruction is entered into the instruction register. 

The instruction register uses a three bit register to hold the 
Operation code of the current instruction. The three bits correspond 
to bits 0-2 in the address indicated by the program counter. 

The major state generator interprets the instruction being 
executed and sequentially enters one or more of the following states. 


During the fetch state, an instruction is loaded into the memory buffer 


PS 


wisn AnS 
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2 
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ph 
Bias 


register from core memory at the address indicated by tl 

counter. The presence of a "1" in bit three of the instruction indicates 
indirect addressing is required and the defer state is entered. The 
major state generator then executes the instruction after entering the 


execute state. Each state requires 1.5 microseconds for execution. 


C.. MEMORY UNIT 

The memory unit consists of a twelve bit memory address register, 
a twelve bit memory buffer register and a 4096 word magnetic core 
memory 

The memory address register contains the address of the in- 
struction currently selected for reading or writing. It can also be used 
to specify the next instruction to be executed. This register is set by 
either the memory buffer register or the program counter. 

The memory buffer register provides a temporary storage location 
for all words stored into or retrieved from the core memory. In addition, 
this register is used to update the program counter, set the memory 
address register and buffer words loaded into the accumulator. 

The magnetic core memory is random access. The 4096 words are 


arranged sequentially with addresses 0-3777. and divided into thirty-two 


8 


pages numbered 0-177 Addresses on page zero and those on the same 


8 . 
page as the current instruction can be referenced directly. Addressing 


between all other pages must be done indirectly. 
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Ds. NPUT/OUTPUT UNITS 

Input and Output devices are combined since many devices serve 
both functions. The primary input/output device is the teletype with 
integral paper tape reader/punch. This device accepts and transmits 
characters in ASCII code which differs from the representation within 
the computer. Consequently, the computer must convert the characters 
when data transfers are effected. 

The secondary input/output device is the PI-1250-1 data handling 
system. This is a seven track magnetic tape system designed to 
operate with the PDP-8 family of computers. 

All input and output associated with the PDP-8 computer requires 
the use of the accumulator. Direct access to the core memory by a 
Bee heral is not possible. In addition, since there is a great difference 
in the processing speed of the computer and the speed of most peripheral 
devices, the computer must be programmed to check the readiness of a 


device prior to attempting the transfer of data. 


uv 
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III. A DESCRIPTION OF THE FORTRAN/8 COMPILER 


Construction of the FORTRAN/8 compiler was completed in two 
stages. The first stage consisted of expressing the FORTRAN/8 grammar 
in BNF in a form acceptable to the ANALYZER, while the second required 
major modifications and additions to SKELETON. 

The BNF productions for FORTRAN/8 are listed in Appendix A. In 
general the grammar rules follow those listed in [Ref. 5]. The major 
exception is in the read/write formats. Due to format complexity and 
core requirements, the standard FORTRAN read/write formats were 
abandoned in favor of the simpler but comprehensive formats proposed 
by Kildall in [Ref. 6]. A listing of FORTRAN constructs allowed by 
FORTRAN/8 is contained in Appendix B. 

Basic design considerations for the second stage were the fast 
storage/retrieval of data in the FORTRAN/8 compiler and efficient 
storage utilization in the PDP-8 computer. 

Storage utilization became extremely important due to a design 
requirement that the object module contain the Floating Point Package. 
This request, coupled with the requirement for supplementary PDP-8 
machine language subprograms i. reduced the core available by thirty 
percent. This meant that the program storage within the PDP-8 was 


limited to 2845 twelve bit words. 


“ peeeriptons of the PDP-8 machine language subprograms are 
contained in section IV. 
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The objective for the remainder of this section is t 
description of the tables and procedures used by the FORTRAN 
compiler and to provide some details as to how the design goals were 


achieved. 


A. TABLE DESCRIPTIONS 
Various tables are referenced for storage and retrieval of data 
throughout the compiler. This section describes the construction and 
purposes of the major tables. 
i The Program Reference Table 
The program reference table (PRT) contains attributes of 
variables defined in the program block (subprogram or main program) 
currently being compiled. This table is divided into three segments: 
0-126 hash field 
127-146 common variable cells 
147-353 program variable cells 
An explanation of information stored within common and program variable 
cells is given in Figure 2. 
The PRT uses hash coding for the storage and retrieval of variables. 
Entry to this table is based on the sennee of characters in the 
variable name plus the EBCDIC value of the first three characters. The 
remainder after division by 127 produces the hash code entry to the hash 
field. ; 


If the location addressed by the hash code entry contains a zero 


then a pointer to the next available program variable cell (indicated by 


NS) 


FIELD NAME 


Type 


Parm 


Collision 


Core Location 


Symbol 


THE PROGRAM REFERENCE TABLE 


Program Variable Storage 


Common Variable Storage 


CORE SYMBOL 
LOCATION POINTER 


Hash 
Field 


BITS DESCRIPTION 
2 0 = integer variable 
1 = real variable 
2 = integer array 
3 = real array 
i if 1 then the variable is a 


parameter to the subprogram 
currently being compiled 


9 a pointer to the variable which 
collided with the variable 


occupying this cell 


12 core address of variable 


8 pointer to the character representation 


of the variable in this cell. 


FIGURE 2 
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pointer PT) is entered in the hash field. Variable attrik 
entered in the program variable cell. The variable name is stored in 
the SYMBOL table (an XPL character array). 

Collisions are resolved by placing variable attributes in the next 
available program variable cell. In this case, however, the pointer 
to the program variable cell is entered in the collision field of the 
previously entered variable. 

A variable is relocated to the next available common variable 
cell (indicated by pointer SC) when the variable name is encountered 
in a COMMON statement. A maximum of twenty variables may be entered 
into COMMON. 

Program variable cells are local to a program block. Consequently, 
the hash field entries pointing to program variable cells are reset to 
zero when an END statement is read from the FORTRAN source deck. 

2 PTABLE 

The PTABLE contains attributes for the subprograms read 
from the FORTRAN source deck. Each cell within the table corresponds 
to one subprogram and has five fields as shown in Figure 3. 

The information content of the Type, Found and Parm fields 
is used by SYNTHESIZE for error analysis purposes, along with decisions 
concerning the emission of code. 

The Reference field refers to an address on page zero of the 
PDP-8 core. This address contains the location of the beginning (entry) 


of the subprogram. 
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PTABLE 


FIELD NAME BITS DESCRIPTION 
Type 3 0 = unknown 
1 = function subprogram 


2 = subroutine subprogram 


Found 1 If this field contains a "1" then 
the subprogram was included 
within the source deck at 
execution time 


Parm 4 number of arguments for the 
subprogram 
Reference WZ program variables are passed to 


the subprogram via locations 
starting with this address at 
the top of page zero 


Storage 12 program variables are passed to the 
subprogram via locations starting with 
this address at the top of page zero 


FIGURE 3 
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Arguments for the subprogram are passed th 
on page zero. The Storage field contains one of these addresses. 
particular address contained in this field is for passing the first 
argument in the argument list. Succeeding arguments are passed 
through sequentially lower numbered cells. 

The FORTRAN/8 compiler allows a maximum of eleven 
FORTRAN subprograms. This restriction is due to the limited space 
on page zero. 

a0 The LAB Table 

The LAB array, shown in Figure 4, contains information con- 
cerning labels encountered in the FORTRAN source deck. The table is 
divided into the following two sections: 

0-126 contains the label for a statement and is entered via 
hash coding 
127-255 each cell within this range of the LAB array corres- 
ponds to one of the cells between 0 and 126 and 
contains two pointers. The left 16 bits point to the 
beginning of the labeled statement while the right 16 
bits point to the end of the same statement. 

The beginning address is used for such FORTRAN source 
statements as the GO TO statement. The FORTRAN DO statement requires 
that both the beginning and the end of a labeled statement be known. 
The beginning is used for the extent of the loop while the end position 


is used for branching after completion of the required iterations. 


Ze 


THE LAB TABLE 


BEGINNING 


HASH 
ENTRIES 


NOE USED 


Figure 4 


4. The FIXV and FIXM Tables 
FIXV is one of several stacks used by the parsing 

algorithm to store information. As originally intended in SKELETON, 
FIXV holds a thirty-two bit binary representation of an integer recognized 
as a terminal symbol by the scanner. If the particular element within 
the BNF production is not a number then the FORTRAN/8 compiler con- 
siders FIXV to be not in use. In this case that position in FIXV is used 
to hold PRT and PTABLE locations, the number of dimensions for an array 
Or parameters to a subprogram, and a code type for the referenced 


variable as shown in Figure 5A. 
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THE FIXV AND FIXM STACKS 


Dimension 
PRI on PLIABLE Location Type Counter 
24 bits 4 bits 4 bits 


Type Code 0 Function Subprogram 
1 Subroutine Subprogram 
2 Integer Array 
3 Real Array 
FIGURE 5A 


THE FIXV AND FIXM STACKS 


FIXV 


12 bits 


FIXM 


24 bits 


FIGURE 5B 


ZS 


If an element within a BNF production requires 
FIXV for number storage then both FIXV and FIXM may receive a portion 
of the number. The portion each receives is determined by the procedure 
SCAN. If SCAN does not find a decimal point in the number field then 
the number value is stored in FIXV as originally intended in SKELETON. 
However, a decimal point within the number field indicates a real 
number and three cells are required to store the value into the PDP-8 
core memory. In this case FIXV will contain the exponent while FIXM 
contains the mantissa as shown in Figure 5B. 

as The LOG Stack 

The LOC stack is a stack similar to FIXV, and parallels 
the PARSE STACK. This stack contains information concerning the core 
location for expressions, variables, and constants found as elements 
of a BNF production. The three fields of this stack are shown in 
Figure 6. 

The information content of the LOC stack is used primarily 
for determining indirect addressing requirements. Indirect addressing 
is denoted by the presence of a "1" in the address field, and occurs 
when the expression does not reside on page zero or on the same page 
as the instructions. The type field contains either a "0" ora "1" which 
designates that the referenced expression is of type integer or real 


respectively. 
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THE LOC STACK , 


| CORE LOCATION | ADDRESS | TYPE 


28 bits 2, bits 2 bits 


FIGURE 6 


THE CODE ARRAY 


LABEL END 
16 bits 16 bits 
FIGURE 7 


THE VCELL_ADDRESS TABLE 


CORE LOCATION PRT LOCATION 


16 bits 16 bits 


FIGURE 8 
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6. The CONSTANTI/CONSTANT2 Table 


The combination of CONSTANT] and CONSTANT2 
table for storage of both integer and real numbers which appear as 
constants in the FORTRAN source deck (e.g., on the right of an 
assignment statement). This is a hash coded table whose entries are 
based on the value of the number. With one exception the configurations 
of CONSTANT! and CONSTANT2 correspond to FIXV and FIXM respectively. 
This exception concerns CONSTANT1. In addition to the exponent stored 
in FIXV, CONSTANT1 also contains the PDP-8 core address of the 
referenced constant. 

The table is initially loaded with those pre-set constants 
found on page 0 of the PDP-8 memory map (see Appendix D). Additional 


entries to the table are effected when: 


a. the scanner reads a number from the FORTRAN source 
deck and 
lowe the number has not been previously entered in the 


CONSTANT1/CONSTANTZ2 table. 

The FORTRAN/8 compiler uses the CONSTANT1/CONSTANT2 
table to ensure that the same constant will not be given additional 
storage when it is encountered a second time by SCAN. This is most 
important in the case of real numbers which require three PDP-8 memory 


cells to store but only one cell to reference. 
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Tie The CODE Array 
The CODE array contains PDP-8 object code. During 
compilation, this array also contains references to labels. The cells 
referring to labels are configured as shown in Figure 7. These cells 
receive the address of either the beginning or end of the labeled state- 


ment at the end of each program block. 


Or The VCELL_ADDRESS Table 


The VCELL_ADDRESS table performs a function similar to 
the CONSTANT1/CONSTANT2 table. Each cell in this table (see 
Figure 6) contains the core location and an address on the current page 
through which that variable has already been accessed. It is through 
this table that the FORTRAN/8 compiler ensures that a maximum of one 


reference to a particular variable appears on each PDP-8 memory page. 


Ee FORTRAN/8 COMPILER ORGANIZATION 

The forty-eight procedures for FORTRAN/8 are organized into six 
main categories: (1) Input; (2) Error; (3) Scan; (4) Initialization; 
(5) Code Emission; and (6) the Syntactic Parsing Functions. Of the 
twenty procedures in SKELETON, fifteen were retained with little or no 
modification. Those procedures modified were: SCAN, INITIALIZATION, 
ERROR, REDUCE, and SYNTHESIZE. 

The relations among the major procedures are listed in Figure 9. 
Appendix C contains an alphabetic listing of all procedures and the 


procedures from which they are called. 
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The syntactic parsing functions are discussed in d 
Ls Error 

The error section is composed of procedures I_ FORMAT, 
ERROR, READ _OCTAL and LIST_CARD. 

Procedure ERROR prints a mnemonic error message, counts 
total and severe errors, and terminates the compilation in the case of 
excessive errors. Procedure I FORMAT is concerned with the format of 
the error message. 

Procedure READ_OCTAL converts the binary representation 
of the parameter to octal. This procedure is used primarily for printing 
the CODE array. 

Procedure LIST_CARD holds the card image being processed. 
Unless an error occurs, the card image will be printed after the statement 
has been parsed. If an error occurs during the parsing operation, the 
card image is printed before the error message. 

Dive Input Section 

The input section consists of a single procedure named 
GET_CARD. This procedure reads the card images of the FORTRAN source 
deck. The latest card image is held in the character string BUFFER 
while the following card is in BUFFER1. This allows determination of 
continuation cards. GET_CARD also adds the ";" required by SCAN to 


determine the end of a statement. 
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Bie Scan 
Scan is composed of two procedures: SCAN and COMPUTE. 
The only modification to SCAN as it appears in SKELETON was to provide 
the ability to scan floating point numbers. When the decimal point is 
found, the number values to the left and right of the decimal point are 
passed to COMPUTE. COMPUTE converts the fractional decimal repre- 
sentation of the scanned real number to exponential form for COMPILATION __ 
LOOP to insert into FIXV and FIXM. 
4, Initialization 
The initialization section consists of one procedure called 


INITIALIZATION. This procedure: 


a. sets the global constants; 
love inserts PDP-8 page zero entries into the code array; 
Crs inserts the PDP-8 machine language subprograms 


into the CODE array; and 
om loads a jump indirect instruction into core location 
200,. 
The jump instruction allows the user to place FORTRAN subprograms 
before the main program and ensures that execution of the PDP-8 
program will always commence at address 200,. Just prior to the return 


from INITIALIZATION, the PDP-8 memory map is configured as shown 


in Appendix D. 


7 


Joon virow 


oie Code Emission 

The code emission section consists of twenty-six pro- 
cedures whose relationships are shown in Figure 10. SYNTHESIZE" is 
the driving procedure in this section. The remaining procedures can be 
separated into the following six categories: (1) procedures concerning 
FORTRAN subprograms; (2) the subscripting of variables; (3) control of 
simple variables; (4) the referencing of labels; (5) the assignment of 
temporary cells; and (6) the procedures for code emission. 

a. Procedures Concerning FORTRAN Subprograms 

Contrary to most FORTRAN compilers, FORTRAN/8 

permits the placing of FORTRAN subprograms both before and after the 
main program. The starting address for each subprogram is listed on 
page zero (see Appendix D) and addressed indirectly. SET PROC obtains 
an address for indirectly addressing the procedure from GET_PCELL and 
places the initial values in PTABLE. Cells for passing parameters are 
taken from the top of page zero and the variable PARMCELL tallies the 


usage of these cells. FIND PROC locates a procedure already entered 


in PTABLE. 


oe order to understand how SYNTHESIZE passes information from 
One reduction to another, the user must familiarize himself with the 
system of flags (shown in Figure 11) and the stacks described in [Ref. 1]. 
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SFLAG 


FLAGS USED IN FORTRAN /8 


CODE EMISSION SECTION 


if set (1) then real expressions are currently being 
processed and the Floating Point accumulator is in use 


if set (1) then the FORTRAN statement being compiled 
is a subroutine call. 


used for dimension, declaration and common statements 


Value Description 
0 INTEGER 
1 REAL 
2 DIMENSION 
3 into main body of subprogram or 


main program 

4 DATA 

5 COMMON 
checks to ensure at least one RETURN statement is 
inside the FORTRAN subprogram body. If set (1) when 
reaching an END statement then no RETURN statement 
was included within the subprogram 
if set (1) then currently processing a FORTRAN 


subprogram, else 0 


FIGURE 11 
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b. The Subscripting of Variables 
Storage for subscripted variables is obtained from 
procedure GET_ACELL on the basis of the number of dimensions, whether 
the variable is declared real or integer, and the extent of each dimension 
for the variable. The number of cells assigned by GET _ACELL for storage 
of the subscripted variable is determined by the following formula: 
if subscripted array is of type real 
then Tt =<3 


otherwise T = 1 


n = number of dimensions 
& icingen 
r. = extent of the i- dimension 
n 
2 cells assigned =m lt rl r) 
i=l 
Storage for these cells is obtained from page 26. starting at address 
5435. Succeeding cells are taken from sequentially lower numbered 


core addresses. Figure 12 shows an example of storage for both an 


integer array(I) and a real array (R). 


The address of a particular element of a subscripted 


variable is computed using the following formula: 
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ait > .ie@u 


n = number of dimensions 


th 
= size of the i. dimension 


ule = 
it 
if i =n then 1 (3 fo real array) 
oo 
i otherwise U4] Dia 
Eee ; 
r, = extent of the i dimension 
L =base of array storage block 
n n 
address = ¢ 1D, - 6, spall Grok oe 
i=l 


—s 


i 


The values for D, through D 


1 and { D.'s are stored in the array 


n-1 
storage block as well as a negative number which represents the number 
of Aimensions.” These values are used at compile time by procedures 
INSERT_DATA and SUBSCRIPT to insert initial values into the subscripted 
variables. 

one Control of Simple Variables 

Procedures ENTER and ENTER! place the variable 

names and attributes in the PRT. ENTER1 also calls procedure SET to 
determine the variable'’s type according to the standard FORTRAN rules. 


If the first letter of the variable is 1,J,K,L,M, or N then the variable 


is typed as an integer and requires one cell for storage. Otherwise, the 


5) : : 

The dimensions are stored in negative form due to the PDP-8 
machine instructions and the manner in which subscripting is done at 
execute time. 


oy 


SUBSCRIPTED VARIABLE STORAGE 


PDP-8 Memory Map 


{Di 


- + Dimensions 


W232) 


FIGURE 12 


variable is typed as a real and requires three cells. Th 

for simple variables are Obtained from the procedure GET VCELL an 
are called VCELLs. GET_VCELL provides these cells from the top of 
the page currently being loaded with instructions. 

The procedure LOOKUP is used to locate a variable 
in the PRT. Entries to the hash field of the PRT are obtained from 
procedure HASH. Finally, COMMON_CHECK relocates a variable within 
the PRT from a program variable cell to a common cell when the variable 
name is contained in a common statement. 

Gi. The Referencing of Labels 

The beginning and end of each labeled statement are 
saved within the procedure FIND_LAB. Procedure SETLAB calls 
GET_VCELL and sets the returned VCELL so that the referenced label can 
be reset at the end of the program block. An error message will be 
printed if the referenced label is not located by the time the scanner 
reaches an END statement. 

e. The Assignment of Temporary Cells 

Temporary cells are located on page 0 between 
addresses ae and ae. and are called TCELLs. Procedure GET_TCELL 
competes with PARMCELL for access to this area of the PDP-8 memory. 
Any overlap between TCELL and PARMCELL will require the FORTRAN 
statement to be separated into two or more statements or the number of 


subprogram parameters to be reduced. All TCELLs become available for 


assignment at the beginning of each FORTRAN statement. 
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ts The Procedure for Code Emission 

Procedure STORE CODE inserts the PDP-8 instructions 
into the CODE array starting at address 202... As the code generation 
approaches the VCELLs in use on the same page, procedure ADVANCE _ 
PAGE will emit a jump to the following page. ADVANCE PAGE will also 
ensure that the Floating Point Package is exited prior to and reset after 
the jump. 

The procedure EMIT_CHECK determines if the refer- 
enced expression must be indirectly addressed. A VCELL is used for 
indirect addressing if the constant or variable is assigned off the page 
on which instructions are currently being inserted. The requirement for 
indirect addressing is determined from CONSTANT1, LOC, or the absence 
of the variable in the VCELL_ADDRESS table. 

Procedure STORE_CONSTANT obtains storage from 
GET_VCELL and inserts the constant into these cells. It also updates 
the CONSTANT1/CONSTANT2 table. 

Frequently addresses must be passed as parameters 
to one of the PDP-8 machine language subprograms. These addresses 
follow the jump instruction to the subprogram. Procedure EMIT ADDRESS 
ensures that the required addresses are loaded after the jump. 

The process of inserting of character strings into the 
CODE array is accomplished by procedure EMIT STRING. This procedure 


uses the procedure STORE_ASCII_CODE to convert the IBM EBCDIC 
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character representation to ASCII code. A listing of the ASCII 


characters available to FORTRAN/8 users is contained in Appendix E. 


C. FORTRAN/8 LISTINGS 

The listing produced by the FORTRAN/8 compiler includes each 
card image from the source deck and any error messages which occurred 
during compilation. Additions to this listing can be effected by the use 


of the control cards which are described in Appendix G. 
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IV. FORTRAN/8 OBJECT MODULE 


The generation of the object module (defined as the CODE array 
in FORTRAN/8) begins in the procedure INITIALIZATION. Before entering 
page zero references however, the content of each address in the CODE 
array is set to zero. Therefore, PDP-8 users are assured that the content 
of each address in a subscripted variable is zero at execution time. 
PDP-8 machine language subprograms, which appear in the declarations 


of FORTRAN/8, are then loaded into the CODE array. 


A. PDP=SiINSTRUCTION SEL 

Two types of iispruetiadas are available for the PDP-8: memory 
reference, and augmented. The memory reference instructions are used 
to store and retrieve information from core memory, while the augmented 
instructions accomplish specialized tasks. The operation code of both 
types is specified in the left most three bits (positions 0-2) of the 
twelve bit word. 

ln Memory Reference Instructions 

| Memory reference instructions are designated by operation 


codes zero through five. These instructions use the right most seven 


on listing of the PDP-8 instructions used by FORTRAN/8 is 
contained in Appendix H. 
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bits (positions 5-11) as an address field and a direct r 
made to any location on the current page or page zero. If bit three 
contains a "1" then the address field refers to the current page, other- 
wise it refers to page zero. 

Bie Augmented Instructions 

There are two augmented instructions: input/output transfer 
(operation code six) and operate (operation code seven). Both augmented 
instructions can be microprogrammed to perform several sequential 
operations by the setting of bits three through eleven. Neither of these 
instructions accesses core memory. 

The input/output transfer instruction initiates the operation 
of peripheral equipment and effects information transfers between the 
arithmetic unit and an I/O device. 

Operate instructions are divided into Group 1 and Group 2. 
The first group is principally for clear, complement, rotate and increment 
operations. The presence of a "1" in bit three designates Group 2 


instructions which check the accumulator and perform skipping operations 


based on this check. 


Bie PDP-8 SUBPROGRAMS 
Ten of the eleven subprograms loaded into the object module will 

if 
be covered in this section. The eleventh, the Floating Point Package 


and corelated Input/Output subprograms, are covered in [Ref. 5]. 


Creeper I contains address sequential listings of the ten sub- 


rograms 
ee 43 


1, I/O Subprograms 

WRITE_STRING emits a continuous string of ASCII characters 
to the teletype. These characters are read from the addresses following 
the jump subroutine instruction (JMS). A return to the program is 
accomplished by reading a WEXT instruction. 

TAB returns the teletype carriage and then advances the 
carriage a number of spaces equal to the value found following the key- 
word TAB in the FORTRAN source deck. 

The transmission of integer numbers is handled in the 
INTEGER_READ and INTEGER_WRITE subprograms. The argument for 
these subprograms is the address of the expression to be transferred. 
The Input/Output subprograms associated with the Floating Point Package 
and the floating point accumulator are used to complete the transfer. As 
a result, all numbers will be printed on the teletype in exponential form. 

Be Subscripts 

All execution time subscript calculations are handled in the 

ARRAY _SUBSCRIPTOR subprogram. The subscripts for the desired 


variable are loaded into page zero addresses 0063 0065, prior to the 


8 
JMS instruction. The last subscript is always entered in 0063, and is 
negative if that variable is declared real. The ARRAY_SUBSCRIPTOR 
returns the calculated address. 
oi Arithmetic Operations 
MULTIPLY and DIVIDE are sea for integer multiplication 


and division operations. Both subprograms operate on the two addresses 
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following the JMS instruction and return the calculated 
works on the principle of successive addition while DIVIDE works \ 
successive subtraction. 

EXPONENTIATION also operates on the two addresses 
following the JMS instruction. The first address is treated as the 
exponent and must refer to an integer expression. The second address 
is the number to be exponentiated and this address must refer to a real 
expression. The result is returned in the floating point accumulator. 

FLOAT converts an integer expression to a real expression 


and places the result in three TCELLs. 


45 


— 
ao Deel. fa> 


Vv. CONCLUSIONS 


The PDP-8 is an extremely versatile computer with considerable 
potential. It was found relatively easy to program and possesses a 
considerable inventory of usable instructions. 

Several FORTRAN source decks were tested on the FORTRAN/8 
compiler. The most comprehensive of these decks totaled sixty-three 
cards. This deck was compiled in approximately two seconds of CPU 
time. The object module (discounting page zero entries, PDP-8 machine 
language subroutines, and the storage area required for subscripted 
variables) required approximately twelve PDP-8 words for each source 
deck card. Based on this figure and the amount of usable core, it is 
estimated that the PDP-8 could handle a source deck exceeding 200 cards. 

Implementation of the FORTRAN/8 compiler at the Naval Postgraduate 
School completed the first of two phases to provide PDP-8 users with 
the capability to test FORTRAN programs. The second phase will consist 
of constructing a PDP-8 simulator on the IBM System 360. This simulator 
will accept the object module produced by FORTRAN/8 and provide users 
with a complete package for the testing and running of FORTRAN programs 


when the PDP-8 system is not available. 
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APPENDIX A. 
BNF FOR FORTRAN/8 


<PROGRAM> 


<MASTER PROGRAM> 
<PROGRAM> 

<STATEMENT BLOCK> 
<STATEMENT LIST> 
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EL> <NUMBER> 


<IE STATEMENTS 


Slike SEKePRESS | ON> 


<ARITHMETIC TRS 
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22 
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Zo 
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<LABEEWTS <EABIELL> 


) 


<NUMBERD> 


<DOUBLE LABEL> 
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<PRIMARY>D 


" 
ee 
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<TERM> 
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APPENDIX C 


FORTRAN/8 PROCEDURE LISTING 


PROCEDURES 


ADVANCE_PAGE * 


AFLAG_ CHECK * 
COMMON_CHECK 
COMPILATION_LOOP 
COMPUTE 

DUMP 

DUMPING 

DUMPIT 
EMIT_ADDRESS * 
EMIT_CHECK * 
EMIT_STRING * 


ENTER 


ENTER1 


*Code emitting procedures 


CALLED BY 

GET VCELL 
SETLAB 
STORE_CODE 
STORE_ASCII_CODE 
SYNTHESIZE 
SYNTHESIZE 
SYNTHESIZE 
MAIN_ PROCEDURE 
SCAN 

SYNTHESIZE 
DUMP 
PRINT_SUMMARY 
SYNTHESIZE 
SYNTHESIZE 


SYNTHESIZE 


ENTER1 
SYNTHESIZE 


SYNTHESIZE 


99 


‘ 


wiih | 


PROCEDURES 


ERROR 


FIND_LABEL 
FIND_PROC 
GET ACELL 
GET_CARD 
GET. PCELL 
Ger TCELL 


GEIAVCELL 


HASH 


I FORMAT 


INITIALIZATION * 


INSERT_CHECK 


INSERT_DATA * 
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CALLED BY 


COMMON_CHECK 
COMPILATION LOOP 
COMPUTE 
EMIT_STRING 
ENTER 

FIND LABEL 
GET_PCELL 
GETTER 
INSERT_CHECK 
REDUCE 

SCAN 

STACKING 
SYNTHESIZE 


SYNTHESIZE 
SYNTHESIZE 
SYNTHESIZE 

SCAN 

SET_PROC 
SYNTHESIZE 
EMIT_CHECK 
ENTER1 

SETLAB 
STORE_CONSTANT 
SYNTHESIZE 
COMMON_CHECK 
ENTER 

LOOKUP 
LIST_CARD 

MAIN_ PROCEDURE 
INSERT_DATA 


SYNTHESIZE 


PROCEDURES CALLED BY 


LIST_CARD ERROR 
GET_CARD 
LOOKUP COMMON_CHECK 
DUMPING 
SYNTHESIZE 
MAIN_PROCEDURE Initial Call 
PR_OK REDUCE 
PRINT_DATE_AND_TIME INITIALIZATION 


PRINT_SUMMARY 
PRINT_SUM MARY 


PRINT_TIME PRINT_DATE_AND_TIME 
PRINT_SUMMARY 


READ_OCTAL DUMPING 
LIST_CARD 
SYNTHESIZE 
RECOVER REDUCE 
STACKING 
REDUCE COMPILATION_LOOP 
STACK DUMP 
RIGHT_CONFLICT PR_OK 
RECOVER 
SCAN COMPILATION LOOP 
INITIALIZATION 
RECOVER 
SET ENTER1 
SYNTHESIZE 
SETLAB * SYNTHESIZE 
SET_PROC SYNTHESIZE 


a7 


PROCEDURES CALLED! BY 


STACKING - COMPILATION_LOOP 
STACK_DUMP STACKING 
STORE_ASCII_CODE EMIT_STRING 
STORE_CODE * AFLAG_CHECK 
EMIT_CHECK 
SYNTHESIZE 
STORE_CONSTANT * SYNTHESIZE 
SUBSCRIPT INSERT_DATA 
SYNTHESIZE * REDUCE 
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APPENDIX D 
PDP-8 MEMORY MAP 


Page 0 


76 
75 Exponential Subprogram 
74 0000 


73 0000 Floating Point 0.0 


rg Floating Point -1.0 

70 

67 Divide Subprogram 

66 Multiply Subprogram 
65 

64 For Subscripting Arrays 
63 

62 Subscript Subprogram 


61} Registers for 
Floating Point 


40 | Package 

ay Integer Read Subprogram 
36 Integer Write Subprogram 
35 Write String Subprogram 
34 Tab Subprogram 


a0 5435 Float Subprogram 


Addresses for indirectly 
Addressing the 
20 FORTRAN subprograms 
17% Auto 
10 Indexing 


oh. Le soe. Floating Point Intrepter 
7400 Floating Point Input 


7200 Floating Point Output 
0001 Fixed Point 1 


Fixed Point 2 
Fixed Point -1 
For Program 
Interrupts 


OrNwWHYDN 
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Pages 1-37 


8 


LET 


Rim Loader 
7756 


Exponentiation 
Subprogram 

Divide 
Subprogram 

Multiply 


7730 


7674 


7652 Subprogram 
Subscript 
Floating 
Point 
5600 Package 


Integer Read 
Subprogram 

Integer Write 
Subprogram 

Write_ String 


5063 


5530 


9514 


5474 Subprogram 


Generated 


By 


FORTRAN/8 


Compiler 


202 
ZO 1 Address of main program 
200 IMP) 20) 


60 


APPENDIX E 


ASCII CODE 

Character Code Character Code 
A 301 ! 241 note l 
B 302 . 242 note 2 
€ 303 + 243 
D 304 S 244 
E 305 % 245 
F 306 & 246 
G 307 ; 247, 
H 310 ( 250 
I Sar ) 2 5 
i) S12 * 252 
K 313 + 235 
L 314 ; 254 
M 315 - 255 
N 316 é 256 
O 6 17 f- 257 
Ey. 320 : PREG 
Q S2ul: ; ZS 
R S22 Za 274 
S 323 = Dae hes 
ab 324 ? 276 
U 325 ? 277 
V 326 @ 300 
W 827 
X 3e0 Line Feed 212 
nf 33a Return De 
Z aO2 Space 240 
0 260 
i Zion Note 1: explanation mark available 
2 262. as "—4 " (11-7-8 Punch) 
3 263 
4 264 Note 2: double quote available 
5 265 aSmen |. (h2—7 —o Punch) 
6 266 
7 267 
8 270 
9 274 
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APPENDIX F 
THE FORTRAN/8 COMPILER 
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EOF 


EOF EOF 


Sx 


APPENDIX G 
FORTRAN/8 LISTING CONTROLS 

The following is a listing of control toggles which allow the user 
to print the code array and FORTRAN/8 tables during the listing. 

Each command must appear on a separate card. A dollar sign (S) 
must be punched in column one of the card and the control character 
must follow in column two. With the exception of control toggle L, all 
toggles are initially off. The first appearance of a control card 
complements the toggle (if off then it is turned on). Succeeding 


appearances of the same control card again complements the toggle. 


Character Action 
C causes the code generated by each source 
deck statement to follow a listing of that 
statement 
L causes the source deck statement to be listed 


along with the card count 


M causes the source deck card to be listed 
without the card count 


12 causes the BNF productions to be listed while 
the source deck statement is being parsed. 
It should be noted that the statement will 
follow the productions. 


R upon completion of code generation the PDP-8 
memory map from 0g to the page (current page) 
on which code generation ceased along with 
all addresses not equal to zero from the current 
page to address 5473. will be listed 
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Character Action 


S causes the PRT to be listed after each 
program block 


T causes the PTABLE to be printed at the end 
of compilation 


ES 


wd OF TAS @i4 ‘ jd 
0 SSSA. inaige oy 


APPENDIX H 


PDP=8 INSTRUCTION SET 


Mnemonic Code Operation 


BASIC INSTRUCTIONS 


AND 0000 logical AND 

TAD 1000 2's complement add 

ISZ 2000 increment and skip if zero 
DCA 3000 deposit and clear AC 

JMS 4000 jump to subroutine 

JMP 5000 jump 

IOT 6000 in/out transfer 

OPR 7000 operate 


GROUP 1 OPERATE MICROINSTRUCTIONS 


NOP 7000 no operation 

CLA 7200 clear AC 

Cli 7100 clear link 

CMA 7040 complement AC 

CML 7020 complement link 

RAR 7010 rotate AC and link right one 
RAL 7004 rotate AC and link left one 
RTR FOV rotate AC and link right two 
REE 7006 rotate AC and link left two 
IAC 7001 increment AC 


- GROUP 2 OPERATE MICROINSTRUCTIONS 


SMA 7500 skip on minus AC 

SZA 7440 skip on zero AC 

SPA L510 skip on plus AC 

SNA 7450 skip on non-zero AC 

SNL 7420 skip on non-zero link 

SZL 7430 skip on zero Jink 

SKP 7410 skip unconditionally 

OSR 7404 inclusive OR, switch register with AC 
HLT 7402 halts the program 
CLA 7600 clear AC 
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Mnemonic Code Operation 


COMBINED OPERATE MICROINSTRUCTIONS 


GIA 7041 complement and increment AC 
LAS 7604 load AC with switch register 
SEL PUZ0 set link (to 1) 

GLK 7204 get link (put tink invAC birt 14) 
GLA CLL 7300 clear AC and link 

CLA IAC 7201 set AC =1 

CLA CMA 7240 set AC = -l 

CLL RAR 7110 shift positive number one right 
Cir RAI 7104 shift positive number one left 
CLL REL 7106 clear link, rotate 2 left 

CLL RTR , 7 AMZ Clear link, rotate 2 right 

SZA CLA 7640 skip if AC = 0, then clear AC 
SZA SNL 7460 skip if AC = 0 or link = 1, or both 
SNA CLA 7650 skip if AC # 0, then clear AC 
SMA CLA 7700 skip if AC < 0,-then clear AC 
SMA SZA 7540 skip it AC <— 0 

SMA SNL 7520 Skip Jf AG = (0 or link 1s. 1, Or bork 
SPA SNA 7550 skip it AC >. 0 

SPA SZL 7530 skip if AC 7— 0, and tf link is-0 
SPA CLA - 7710 skip if AC > = 0, then clear AC 
SNA SZL 7470 skip if AC # 0 and link = 0 


M Q MICROINSTRUCTIONS 


NOP 7401 no operation 

CLA 7601 clear AC 

MOL 7421 load MQ from AC then clear AC 
MQA : 7501 inclusive OR the MQ with the AC 
CAM 7621 clear AC and MQ 

SWP 7521 swap AC and MQ 

ACL C101 load MQ into AC 

CLA ,SWP TI2Z4 load AC from MQ then clear MQ 


Mnemonic 


SPF 
TSE 
LCE 
ZEC 


SPI 
TLS 


FADD 
FSUB 
Evy 
F DIV 

FGET 
BeUT 
FNOR 
FEXT 

SQR 

SQRT 


WEXT 


Code 


Operation 


TELETYPE KEYBOARD/ READER 


6030 


6031 
6032 


6034 
6035 


6036 


clear keyboard/reader flag, 
do not start reader 
skip if keyboard/reader flag = 1 
clear AC and keyboard/reader f!aq, 
set reader run 
read keyboard/reader buffer static 
AC 11 to keyboard/reader 
interrupt enable F.F. 
clear AC, read keyboard buffer, 
clear keyboard flags 


TELETYPE TELEPRINTER/PUNCH 


6040 
6041 
6042 
6044 


6045 
6046 


FLOATING POINT 


1000 
2000 
3000 
4000 
5000 
6000 
7000 
0000 
0001 
0002 


set teleprinter/punch flag 

skip if teleprinter/punch flag = 1 

clear teleprinter/punch flag 

load teleprinter/punch buffer 
select and print 

skip if teletype interrupt 

load teleprinter/punch buffer, 
select and print and clear 
teleprinter/punch flag 


INSTRUCTIONS 


add to floating point AC 
subtract from floating point AC 
multiply floating point AC by 
divide floating point AC by 
load floating point AC by 
store floating point AC by 
normalize floating point AC by 
floating point exit 

floating point square 

floating point square root 


PSEUDO, INSTRUCTION 


0000 


WRITE_STRING subroutine exit 
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APPENDIX I 


PDP-8 MACHINE LANGUAGE SUBPROGRAMS 


FLOAT SUBPROGRAM 


Address Code Label Mnemonic Description 
5435 0000 ENTRY, 

5436 7100 Cie 
5437 7500 SMA 
5440 5243 PMP. 3 
5441 71420 STL 
5442 0362 AND 
5443 3046 DCA 46 
5444 7300 CEACC LL 
5445 3044 DCA 44 
5446 7204 GLK 
5447 7650 SNA CLA 
5450 9253 ) MiP. 3 
5451 1362 TAD 
5452 7040 CMA 
5453 7421 MQL 
5454 1046 TAD 46 
5455 7450 SNA 
5456 5262 JMP. +4 
5457 2044 ISZ 44 
5460 7010 RAR 
5461 5255 JMP. -4 
5462 1046 TAD 46 
5463 ESVO SPA 
5464 5267 TMP. +3 
5465 7004 RAL 
5466 5263 JMP. -3 
5467 7010 RAR 
5470 F501 MQA 
5471 3045 DCA 45 
5472 3046 DCA 46 


9473 5230 jIMP EE NIRY 


° 


PLS 


TAB SUBPROGRAM 


Address 


5474 
5475 
5476 
5477 
5500 
5501 
5502 
5503 
5504 
5005 
5506 
5007 
9010 
Soll 
JolZ 
a0L3 


WRITE_STRING 
Address 


9914 
SSS) 
5516 
Sol7 
5520 
5041 
9022 
5023 
59524 
J020 
50926 
SEVAU 


Code 


0000 
1674 
33S 
2274 
4435 
0215 
0000 
tas 
7700 
5674 
4435 
0240 
0000 
2.343 
53i0'5 


0000 A, 


SUBPROGRAM 
Code 


0000 
7300 
6046 
1714 
2314 
7450 
5714 
6041 
SIGVAC) 
6046 
7300 
Don 


Label 


ENTRY, 


Label 


ENTRY, 


Mnemonic Description 


TAD I ENTRY 
DCA A 

ISZ ENTRY 
JMS I 35 


WEXT 
TADA 

SMA CLA 
JMP I ENTRY 
JMS 1 35 


WEXT 
ISZ A 
[MPS =7 


/return 
/exit 


/space 
/exit 


Mnemonic Description 


CLA CLL 
TLS 

TAD lL ENTRY 
ISZ ENTRY 
SNA 

JMP I ENTRY 
TSF 
(Mrs 
TLS 

CLA CLL 
JMP.. 6 


INTEGER _WRITE SUBPROGRAM 


Address Code Label Mnemonic Description 
5530 0000 ENTRY, 

Doo L 3045 DCA 45 

DDO 2 1045 TAD 45 

S00 7700 SMA CLA 
5534 5342 JMP.. +6 
5530 1045 TAD 45 

50 5 7040 CMA 

R00 7 1004 TAD 4 

5540 3045 DCA 45 
5541 13:62 TAD A 

5542 7421 MQL 

3543 3046 DCA 46 
5544 3044 DCA 44 

5545 1045 TAD 45 

5546 7010 RAR 

5547 2044 ISZ 44 

5550 7440 SZA 

5551 5346 JMP. -3 
5502 1045 TAD 45 

5000 7004 RAL 

5554 7500 SMA 

S500 SoG JMP. -2 
5506 7010 RAR 

So07 Faor MQA 

5560 3045 DCA 45 

5561 5730 JMP ENTRY 
5562 4000 A, /mask 


INTEGER_READ SUBPROGRAM 


Address 


5563 
5564 
SOL) 
5566 
D007 
5570 
so! 
7/2 
Dos 3 
5574 
5575 
50/6 
5o/7 


Code 


0000 
1044 
Sy 
7700 
5375 
1045 
7110 
3045 
2044 
5364 
1045 
SASS 
7769 


Label 


ENERY., 


A, 


ARRAY_SUBSCRIPTOR SUBPROGRAM 


Address 


7600 
7601 
7602 
7603 
7604 
7605 
7606 
7607 
7610 
7611 
POweZ 
7613 
7614 
FOL S 
7616 
7617 
7620 
7621 
7622 
7623 
7624 
7625 
7626 


Code 


0000 
1600 
3357 
2200 
ikaw 
3360 
ZBo7 
1063 
7500 
SA 
7040 
3356 
1356 
ASHEN 6) 
1300 
3306 
2360 
SAS 
5241 
2360 
7S 7 
SO 
2357 


Label 


ENTRY, 
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Mnemonic Description 


TAD 44 
TAD A 

SMA CLA 
JMP. +6 
TAD 45 

CLL RAR 
DCA 45 

ISZ 44 

JMP. -8 
TAD 45 

JMP I ENTRY 


/-11,, 


Mnemonic Description 


TAD I ENTRY 
DCA BASE 
ISZ ENTRY 
TAD I BASE 
DCA DIM 
ISZ BASE 
TAD RN 
SMA 

JMP 

CMA 

DCA CALC 
TAD CALC 
TAD CALC 
TAD CALC 
DCA CALC 
ISZ DIM 
JMP 

JMP . 

ISZ DIM 
TAD I BASE 
DCA DI 
ISZ BASE 


at 


ARRAY_SUBSCRIPTOR SUBPROGRAM (Continued) 


Address _ Code Label Mnemonic Description 
7627 1063 TAD I 

7630 7040 CMA 

70S 1004 TAD 

7632 38i6Z DGAERT 
7633 1362 TAD RI 
7634 2362 ISZ RI 
7635 5iZa15 JMP 

7636 1356 TAD CALC 
7637 3356 DCA CALC 
7640 5220 JMP 

7641 1207 TAD 

7642 CS VATE DCA 

7643 V75.7 TAD 1 BASE 
7644 7040 CMA 

7645 1003 TAD.3 
7646 1357 TAD BASE 
7647 ¥356 TAD CALC 
7650 5200 JMP I ENTRY 
7651 0000 NOP 

E756 0000 CAG, 

BIST 0000 BASE, 

7760 0000 DIM, 

(gi Acat 0000 DL, 

7762 0000 RI, 


MULTIPLY SUBPROGRAM 


Address Code Label Mnemonic Description 

7652 0000 ENTRY, 

L608 7300 GEACGLE 

7654 1652 TAD IENTRY /Multipler Address 
7555 3300 DCA A 

7656 1756 TAD LA 

7657 335.0 DCA A 

7660 22.92 ISZ ENTRY 

7661 1652 TAD IENTRY /Multiplicand Address 
7662 3357 DCA B 

7663 L757 TAD IB 

7664 7040 CMA 
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MULTIPLY SUBPROGRAM (Continued) 


Address 


7665 
7666 
7667 
7670 
7671 
ABZ 
7673 


7756 
US 


DIVIDE SUBPROGRAM 


Address 


7674 
7675 
7676 
7677 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
77.07 
7710 
FIAL 
etal 2. 
TEAS 
7714 
Lis 
7716 
haps / 
7720 
TU 
7722 
T7203 
7724 
7125 


Code 


3307 
Zak, 
Zou 
Bane 
9652 
1356 
5267 


0000 
0000 


Code 


0000 
7300 
1674 
3396 
1756 
3356 
2274 
1674 
2274 
38357 
LAS 
7040 
1004 
7440 
5314 
7402 
3397 
3360 
1356 
US OW! 
2360 
7540 
Soy 
7500 
5326 
1002 


Label 


Label 


ENTRY, 
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Mnemonic Description 


DCA B 

ISZ ENTRY 
ISZ B 

JMP. +2 
JMP I ENTRY 
TAD A 

JMP. -4 


Mnemonic Description 


GLA CLL 
TAD I ENTRY 
DCA A 
TADIA 
DCA A 
ISZ ENTRY 
TADIE ENTRY 
ISZ ENTRY 
DCA B 
TAD IB 
CMA 
TAD 4 
SZA 
JMR 2 2 
HL 
DCA B 
DGA C 
TAD A 
TAD B 
ISVANG: 

SMA SZA 
[MPS =3 
SMA 

[MP SZ 
TAD 2 


/Dividend Address 


/Divisor Address 


/Divide by Zero? 


DIVIDE SUBPROGRAM (Continued) 


Address Code Label Mnemonic Description 
7726 1360 TAD 

THT 5674 JMP ENTRY 

7756 0000 ay 

LEE 0000 Ee 

7760 0000 Cr 


EXPONENTIATION SUBPROGRAM 


Address Code Label Mnemonic Description 

TTEO 0000 ENDRY 

M3 7300 GEATCLL 

FI32 730 TAD 1 ENTRY 

LISS 33106 DCA A 

7734 L756 TADIA 

7735 7040 CMA 

7736 1004 TAD 4 

F737 3.0516 TAD A 

7740 2330 ISZ ENTRY 

E74 | ASO TAD DENERY 

7742 3307 DCA B 

7743 233:0 ISZ ENTRY 

7744 4407 JMS INTREPTER /Floating Point 
Package 

7745 S/o FGEL IB 

7746 6307 PeUE 8 

7747 0000 FEXE 

7750 4407 JMS INTREPTER 

arya 3357 FMPY B 

Sie 0000 PEAT 

7753 2356 ISZ A 

7754 5300 JMP. -4 

~755 5730 [MP LENTRY 

7756 0000 i5Ny, 

L157 0000 By 

7760 0000 

7761 0000 


E29 


ee 


6\. 


Ts 


OF 
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